home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Taifun / Taifun 136 (1990-05-15)(Ossowski, Stefan)(DE)(PD).zip / Taifun 136 (1990-05-15)(Ossowski, Stefan)(DE)(PD).adf / MF-Pascal_0.2 / test.p < prev    next >
Text File  |  1990-02-23  |  274b  |  17 lines
  1. program main(input,output);
  2. const
  3.   txt= "- i :";
  4. var
  5.   i,j: integer;
  6. function fak(i: integer): integer;
  7. Begin {fak}
  8.   case i of
  9.     0,1: fak := 1;
  10.     else fak := i*fak(i-1);
  11.   end;
  12. end; {fak}
  13. Begin
  14.   for i := 0 to 10+1
  15.   do writeln(txt,i,"  i - fakultät :", fak(i));
  16. end.
  17.